object ScrEdit: TScrEdit
  Left = 318
  Top = 224
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Visual Scratch Session Editor'
  ClientHeight = 331
  ClientWidth = 663
  Color = 3418225
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Shape2: TShape
    Left = 16
    Top = 179
    Width = 481
    Height = 3
    Brush.Color = 33023
  end
  object Shape3: TShape
    Left = 16
    Top = 75
    Width = 481
    Height = 3
    Brush.Color = 33023
  end
  object Shape1: TShape
    Left = 16
    Top = 127
    Width = 481
    Height = 3
    Brush.Color = 33023
  end
  object p1: TShape
    Left = 8
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    Pen.Width = 2
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object Bevel2: TBevel
    Left = 504
    Top = 8
    Width = 153
    Height = 281
  end
  object p2: TShape
    Left = 32
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p3: TShape
    Left = 56
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p4: TShape
    Left = 80
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p5: TShape
    Left = 104
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    Pen.Width = 2
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p6: TShape
    Left = 128
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p7: TShape
    Left = 152
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p8: TShape
    Left = 176
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p9: TShape
    Left = 200
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    Pen.Width = 2
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p10: TShape
    Left = 224
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p11: TShape
    Left = 248
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p12: TShape
    Left = 272
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p13: TShape
    Left = 296
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    Pen.Width = 2
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p14: TShape
    Left = 320
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p15: TShape
    Left = 344
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object p16: TShape
    Left = 368
    Top = 24
    Width = 17
    Height = 209
    Brush.Color = 4874571
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object Label1: TLabel
    Left = 8
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '1'
  end
  object Label2: TLabel
    Left = 32
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '2'
  end
  object Label3: TLabel
    Left = 56
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '3'
  end
  object Label4: TLabel
    Left = 80
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '4'
  end
  object Label5: TLabel
    Left = 104
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '5'
  end
  object Label6: TLabel
    Left = 128
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '6'
  end
  object Label7: TLabel
    Left = 152
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '7'
  end
  object Label8: TLabel
    Left = 176
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '8'
  end
  object Label9: TLabel
    Left = 200
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '9'
  end
  object Label10: TLabel
    Left = 224
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '10'
  end
  object Label11: TLabel
    Left = 248
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '11'
  end
  object Label12: TLabel
    Left = 272
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '12'
  end
  object Label13: TLabel
    Left = 296
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '13'
  end
  object Label14: TLabel
    Left = 320
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '14'
  end
  object Label15: TLabel
    Left = 344
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '15'
  end
  object Label16: TLabel
    Left = 368
    Top = 240
    Width = 17
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '16'
  end
  object s1: TShape
    Left = 8
    Top = 225
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s2: TShape
    Left = 32
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s3: TShape
    Left = 56
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s4: TShape
    Left = 80
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s5: TShape
    Left = 104
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s6: TShape
    Left = 128
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s7: TShape
    Left = 152
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s8: TShape
    Left = 176
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s9: TShape
    Left = 200
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s10: TShape
    Left = 224
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s11: TShape
    Left = 248
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s12: TShape
    Left = 272
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s13: TShape
    Left = 296
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s14: TShape
    Left = 320
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s15: TShape
    Left = 344
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object s16: TShape
    Left = 368
    Top = 224
    Width = 17
    Height = 9
    Brush.Color = 33023
    Shape = stRoundRect
    OnMouseDown = p1MouseDown
    OnMouseMove = p1MouseMove
    OnMouseUp = p1MouseUp
  end
  object smpPreview: TPaintBox
    Left = 395
    Top = 24
    Width = 100
    Height = 209
    OnPaint = smpPreviewPaint
  end
  object Label17: TLabel
    Left = 400
    Top = 214
    Width = 89
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Sample start'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label18: TLabel
    Left = 400
    Top = 27
    Width = 89
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Sample end'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label19: TLabel
    Left = 8
    Top = 259
    Width = 377
    Height = 54
    AutoSize = False
    Caption = 
      'This tool lets you create rhythmically scratching sounds. Each b' +
      'ar represents a step in the current measure. You can position th' +
      'e needle which runs over your sample for each step. To remove th' +
      'e needle position right-click on the slider... '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
    WordWrap = True
  end
  object OkBtn: TButton
    Left = 584
    Top = 300
    Width = 75
    Height = 25
    Caption = 'Ok'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object cancelBtn: TButton
    Left = 504
    Top = 300
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object AddBtn: TButton
    Left = 512
    Top = 224
    Width = 137
    Height = 25
    Caption = 'Add current to list'
    TabOrder = 2
    OnClick = AddBtnClick
  end
  object UseBtn: TButton
    Left = 512
    Top = 192
    Width = 137
    Height = 25
    Caption = 'Use selected'
    TabOrder = 3
    OnClick = UseBtnClick
  end
  object DeleteBtn: TButton
    Left = 512
    Top = 256
    Width = 137
    Height = 25
    Caption = 'Delete from list'
    TabOrder = 4
    OnClick = DeleteBtnClick
  end
  object PresetBox: TListBox
    Left = 512
    Top = 16
    Width = 137
    Height = 169
    Color = 10656960
    ItemHeight = 13
    TabOrder = 5
    OnDblClick = UseBtnClick
  end
  object ClearBtn: TButton
    Left = 408
    Top = 264
    Width = 75
    Height = 25
    Caption = 'Reset'
    TabOrder = 6
    OnClick = ClearBtnClick
  end
end